home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / Itch / work_info / WImage.dcr / 00012_LeverArm Parent.ls < prev    next >
Encoding:
Text File  |  1999-03-07  |  532 b   |  20 lines
  1. property sp, offsetList, boxRect, boxBottom, boxRight
  2.  
  3. on new me, asp
  4.   me.sp = asp
  5.   puppetSprite(me.sp, 1)
  6.   offsetList = [point(331, 443), point(331, 437), point(331, 431), point(332, 426), point(333, 421), point(336, 416)]
  7.   me.boxRect = the rect of sprite me.sp
  8.   boxBottom = me.boxRect.bottom
  9.   boxRight = me.boxRect.right
  10.   return me
  11. end
  12.  
  13. on updateRect me, aNum
  14.   l = getAt(offsetList, aNum).locH
  15.   t = getAt(offsetList, aNum).locV
  16.   r = boxRight
  17.   b = boxBottom
  18.   set the rect of sprite the sp of me to rect(l, t, r, b)
  19. end
  20.